﻿
Partial Class App_TestLoginTwitter
    Inherits MyUI.PageBaseApp

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        'https://dev.twitter.com/docs/auth/implementing-sign-twitter
        Dim oauth = New WebApi.Oauth.Oauth With {
            .oauthConsumerSecret = "kLgJlMmE0iWToUUK3xF15K8f9dwYjYjJRHg3o7Zw",
            .oauthConsumerKey = "N89RIjsDiPGuqzHDMteSQ"
        }

        If (Request("oauth_token") <> Nothing And Request("oauth_verifier") <> Nothing) Then
            'L'utente riconosciuto da Twitter ci ha autorizzato, chiedo quindi a Twitter i dati dell'utente
            oauth.oauthToken = Request("oauth_token")
            oauth.getResponse("https://api.twitter.com/oauth/access_token")

            ''Interrogazione per ottenere gli utlimi tweet dell'utente corrente
            'oauth.oauthMethod = "GET"
            ''Creo una webClient passandogli l'oauth e faccio la chiamata a twitter
            'Dim webClient = New WebApi.Net.WebClient
            'webClient.oAuth = oauth
            'Dim Res = webClient.DownloadString("https://api.twitter.com/1.1/statuses/user_timeline.json?user_id=" & oauth.additionalHeaderParams("user_id"))
            'Dim twetts = MyApp.JSONDeserialize(Of List(Of WebApi.Twitter.Tweet))(Res)

            Dim currentUser = DB.TAB.User.GetByPK(1)
            ' Dim twitterObject = New WebApi.Twitter.TwitterClient(currentUser.getOauth)
            'twitterObject.GetTweets("test", currentUser.Id)
            'twitterObject.Connect()

            
        Else
            'Richiedo il token di autorizzazione a twitter
            oauth.oauthCallback = "http://www.evolvonet.it"
            oauth.getResponse("https://api.twitter.com/oauth/request_token")
            'Redirigo l'utente a twitter che ha capito chi sono e verifica se l'utente è loggato e se sì controlla che abbia l'autorizzazione con la mia applicazione
            Response.Redirect("https://api.twitter.com/oauth/authenticate?oauth_token=" & oauth.oauthToken)
        End If

        'Dim twitterObject = New WebApi.Twitter.TwitterClient
        'twitterObject.Connect()
    End Sub
End Class
